home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / perl5 / Debian / DebConf / Client / ConfModule.pm
Encoding:
Perl POD Document  |  2009-03-24  |  610 b   |  21 lines
  1. #!/usr/bin/perl
  2. # This is a stub module that just uses the new module, and is here for
  3. # backwards-compatability with pograms that use the old name.
  4. package Debian::DebConf::Client::ConfModule;
  5. use Debconf::Client::ConfModule;
  6. use Debconf::Log qw{debug};
  7. print STDERR "Debian::DebConf::Client::ConfModule is deprecated, please use Debconf::Client::ConfModule instead.\n";
  8.  
  9. sub import {
  10.     splice @_, 0, 1 => Debconf::Client::ConfModule;
  11.     goto &{Debconf::Client::ConfModule->can('import')};
  12. }
  13.  
  14. sub AUTOLOAD {
  15.     (my $sub = $AUTOLOAD) =~ s/.*:://;
  16.     *$sub = \&{"Debconf::Client::ConfModule::$sub"};
  17.     goto &$sub;
  18. }
  19.  
  20. 1
  21.